while ($ligne = <>) 
{
 $texte .= $ligne;
}
print "Vous avez saisi le texte \n $texte \n";



# Questions et  Reponses:


#   1. Expliquer et tester le script initial et  Expliquer ICI pourquoi l'affichage est identique � la saisie

# Regardez l'image de l'exécution dans la page de site

#  Explication: Notre script fait au d�but une instruction d'affichage avec la fonction print. Ensuite il �x�cute une boucle while qui fait des it�ration
#tant que l'utilisateurs saisi des lignes au clavier et tant qu'il ne provoque pas l'envoi du ctrl-d sur une ligne vide.
#A chaque it�ration de notre boucle while on concat�ne le ligne saisi dans une variable $texte. 
#Lorsqu'on sort de la boucle while on affiche le contenu de la variable $texte.

#   3. R��crire en n'utilisant que la variable sp�ciale $_ (voir ci-dessous, variables scalaires 5 et 6)

print "Saisir une nouvelle ligne : ";
while (<>) 
{
 $texte .= $_;
}
print "Vous avez saisi le texte \n $texte \n"; 
